ListView
Otázka od: Martin Cajbik
2. 12. 2003 11:49
Zdravim
vedel by mi niekto poradit ako by sa dalo v TListView
1. zmenit vysku riadku, inac nez zmenou fontu alebo cez ImageList ?
2. reagovat na zmenu sirky stlpcov pouzivatelom ?
Nemozem pouzit ziadnu nahradu alebo naslednika TListView.
(D6)
Vopred vdaka,
Martin Cajbik
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: ing. Jan Fiala
29. 10. 2002 9:13
A nestaci ti ty 2 priklady, ktere jsou v helpu u TListView.Items ?
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz
29.10.2002 Ivan šimko:
> Zdravim.
> Chcel by som poprosit o radu ako sa dopracovat k polozkam listview. Obsahuje
> itemy aj subitemy. Nejaky syntax na nacitanie by mi velmi pomohol.
> Dik
Odpovedá: ing. Jan Fiala
29. 10. 2002 13:38
Z jakeho duvodu nemas help ?
Helpy jsou ke stazeni na strankach Borlandu. Be helpu to musi byt
docela krusny zivot 
tady je priklad z helpu:
procedure TForm1.FormCreate(Sender: TObject);
const
Names: array[0..5, 0..1] of string = (
('Rubble', 'Barney'),
('Michael', 'Johnson'),
('Bunny', 'Bugs'),
('Silver', 'HiHo'),
('Simpson', 'Bart'),
('Squirrel', 'Rockey')
);
var
I: Integer;
NewColumn: TListColumn;
ListItem: TListItem;
ListView: TListView;
begin
ListView := TListView.Create(Self);
with ListView do
begin
Parent := Self;
Align := alClient;
ViewStyle := vsReport;
NewColumn := Columns.Add;
NewColumn.Caption := 'Last';
NewColumn := Columns.Add;
NewColumn.Caption := 'First';
for I := Low(Names) to High(Names) do
begin
ListItem := Items.Add;
ListItem.Caption := Names[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;
end;
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz
29.10.2002 Ivan šimko:
> Nakolko nemam help tak by som poprosil o nejaky ten riadok syntaxu.
> Dakujem